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My a4) i Sample SET HOST/DTE dialer module 


PARA ARRARARAARRBARRRRAASLASASAALALALALELE REEL ELE SERRE EEA EERE ERE R SECS EERE ERASE 


COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
ALL RIGHTS RESERVED. 


-* * 
** ® 
® ® 
:? ® 
-* ® 
j* THIS SOFTWARE 1S FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED + 
is ONLY IN, ACCORDANCE WITH THE TERNS OF SUCH LICENSE AND WITH THE 
* INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OT . 
Se COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 
fs OTHER PERSON. NO TITLE TO AND OUNERSHIP OF THE SOFTWARE TS. HERESY 
s® TRANSFERRED. ® 
:* ® 
;* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
;* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
:* CORPORATION. . 
-* oy 
:* & 
-* tt 
* ® 
*@ ® 
® oy 


DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 


‘ 
° 
° 
© 
° 
° 
° 
° 
. 
° 
° 
e 
° 
* 
e 
° 
° 
° 
o 
° 
° 
: \ARRBAAAAAASAAAAAALALAALASALLELALASE ELAS EEE REESE E EE EERE ERE SER ERE RSE SESS E SEES 
° 


+ 
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FACILITY: 
SET HOST/DTE 
ABSTRACT: 
Provide modem-specific support for ah Hs on a DFO3, and 
serve as oxpaple for other modem rypes Activated as a sharable 
nego when SET HOST ttcn: /DTE /DIAL=(number: string, MODEM_TYPE=DF03) 
$s run, 
ENVIRONMENT : 


VAX/VMS, user mode. 


AUTHOR: Jake VanNoy, CREATION DATE: 11-Apr-1984 
MODIFIED BY: 


-SBTTL DECLARATIONS 


DTE_DFO3S.MAR; 1 


; INCLUDE FILES: 


SSHRDEF 
SSTSDEF 


MACROS: 


: EQUATED SYMBOLS: 


REMS_FACILITY 
REM$_BADVALUE 
CR = 13 
LF = 10 


> OWN STORAGE: 


CTRLB_DESC: 


CTRLB_STR: 
CONN_DESC: 


CONN_STR: 
CONN~STR_LEN 
FAIL_DESC: 
FAIL STR: 
FAIL-STR_LEN 
READ_BUFFER: 
READ_STATUS: 
USER_CHAN: 


LONG 
“ASCII 
-FAIL_STR 


-BLKB 
- LONG 
» LONG 
- LONG 
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; shared messages 
; status fields 


“X1FE 
SHR$_BADVALUE ! <REM$_FACIL!TY@16> 


1 ; cenges 

0 ; will get filled in by code 

2 oS ts > 

CONN_STR_LEN H Length 

0 ; will get filled in by code 
<CR><LF>/Connection made to remote port/<CR><LF> 


FAIL_STR_LEN ; 


Length 
will get filled in by co 


: de 
<CR><LF>/Failed to connect to remote port/<CR><LF> 


' 
0 


; read buffer 
; 1/0 status 
; completion status 


3; command channel own storage 
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-SBTTL DTE_DFO3 = DFO3 autodial routine 


a 
> 


FUNCTIONAL DESCRIPTION: 
Perform the necessary autodial protocol on a DFO3-AC modem. 
CALLING SEQUENCE: 
DIAL_ROUTINE (number_desc, port chan, command_chan) 
INPUT PARAMETERS: 
4(AP) = tel tpl of string specified in NUMBER:string 
8(AP) = channel number of port DF03 is connected to 
12(AP) = channel number of user's terminal 


IMPLICIT INPUTS: 
NONE 

OUTPUT PARAMETERS: 
NONE 

IMPLICIT OUTPUTS: 
NONE 


COMPLETION CODES: 
RO - status 

SIDE EFFECTS: 
NONE 


number = 4 
port_chan = 8 
command_chan = 12 
. TRANSFER DIAL_ROUTINE 
~MASK DIAL_ROUTINE 
BRW DIAL_ROUTINE#2 
ENTRY DIAL_ROUTINE,“*M<R2,R3,R4> 
MOVZWL command chan(AP) ,user_chan ; save for later ; 
MOVL number (AP) ,R2 ; fetch address of descriptor 
MOVZWL (R2),R ; length of string 
MOVL 4 (R25 ,R4 ; address 
: Loop through string to check for illegal characters 
10$: F 
CMPB #*A/=/,(R4) ; “s"* is pause character 
BEQL 20% 3; branch if match 
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CMPB Os #*A/0/, (RG) 
BGTRU 
CMPB Os #*A/9/, (RG) 
BLSSU 308 

208: INCL RG 
SOBGTR RS 108 
BRB 40$ 


: error in number string 
308: PUSHL number (AP) 
a 


PUSHL #REM$_BADVALUE 
CALLS #3,G*CIBSSIGNA 


> number string ok, continue. 
; queue read for character 


6sBw READ CHAR 
BLBC ~—_- RO, 1008 
; Write string to modem 


MOVAB CTRLB_STR,CTRLB_DESC+4 

MOVAB CTRLB~DESC,R2 
WRITE-STR 

BLBC ~—_- RO, 1008 

MOVL number (AP) ,R2 

BSBW WRITE STR 

BLBC RO, 100$ 

SHIBER_S 

MOVL § READ_STATUS,RO 


RET 
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; check for number 

Branch if less than legal 
check for number 

Branch if more than legal 
next character 

legal character, loop 
continue, number ok 


; signal error 
; number of FAO args 
; error type 

error 


L . 
MOVL § #REMS_BADVALUE!STSSM_INHIB_MSG,RO ; return status 


; return 


read status character 
exit on error 


set address 

*“B initiates dial 
write string 

exit on error 


fetch address of descriptor 
write number string 
exit on error 


wait for read to complete 


set status 


” @g27 


ee ae ee 


aa 
Co" «+ 


mn 


Qa 


a 
Pd 
wo 
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»SBTTL WRITE_STR = write string to port channel 


> 
oe 


FUNCTIONAL DESCRIPTION: 

write a string to the DIE port 
CALLING SEQUENCE: 

BSBW WRITE _STR 
INPUT PARAMETERS: 

R2 - address of descriptor to write 
COMPLETION CODES: 


aoe were 


RO - status 
WRITE_STR: 
$Q10W_S - 
CHAN = pt By he 3; channel 
FUNC = #10$_WRITEVBLK!IOSM_NOFORMAT,- ; write no format 
Pl = a4(R2),- ; address 
P2 == (R2) ; length 
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» SBTTL READ CHAR = read status character from port 


FUNCTIONAL DESCRIPTION: 


Read the status character from the DFO3, allowing a maximum 
of seconds for the event to occur. 


CALLING SEQUENCE: 
; BSBW —- READ_CHAR 
: INPUT PARAMETERS: 
i NONE 
; COMPLETION CODES: 
; RO = status 
READ_CHAR: 
$010_S - 
CHAN = port_chan(A ; channel 


P),- : 
FUNC = #10$~READVBLK ! 1OSM_TIMED! 1OSM_PURGE , - 
- ; read timed, purge 


RSB exit with status 


10SB = I0SB,- ; 1/0 status 
ASTADR = READ_DONE,- > ast routine 
Pi = READ_BOFFER,- ; address 
P = #1,- ; length 
P = #66 ; timeout 


Le 


9 
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» SBTTL READ_DONE = ast for read completion 


FUNCTIONAL DESCRIPTION: 
Check for timeout or status character 
CALLING SEQUENCE: 
CALLed as AST routine | 


Se Se Ge Ge Se Se Se Ge Se Se Se Oe Ge Se ee Se eee 
eee ee Oe Se ee Oe Se Oe ee Oe Be ee ee ee He 
iol 


INPUT PARAMETERS: P 
NONE 
COMPLETION CODES: 
RO = status a 
otal i LAB 
-ENTRY READ_DONE ,“M<R2> 
MOVZWL 10S8,R0 ; get status of read 
BLBC — RO, 1008 : branch if timeout 
MOVZ7BL READ_BUFFER,R2 fetch data 
CMPB #*A/K/ ,R2 status ok? 
BNEQ branch if not 


MOVAB conn_desc,R2 set up string 


Bete Se Se Se Se Se Ge ee 


MOVAB conn =str,4(R2) set up string 
BSBW WRITE STR_TO_USER tell user, ready 
BLBC R exit on error 
MOVL  § #SS$_NORMAL ,RO ready | 
sa BRB 100$ exit 
MOVAB fail_desc,R2 ; set up string 
VAB failstr,4(R2) > set up string 
BSBW = WRITE STR TO USER ; tell user, ready 
MOVZ7WL #SS$_RANGOP,R ; status | 
100$: MOVL  RO,READ_STATUS ; Save status 
SWAKE_S ; wake main stream 
RET 
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——— 


» SBTTL WRITE_STR_TO_USER = write string to command channel 


FUNCTIONAL DESCRIPTION: 

write a string to the user terminal channel 
CALLING SEQUENCE: 

BSBW WRITE_STR_TO_USER 
INPUT PARAMETERS: 

R2 - address of descriptor to write 
COMPLETION CODES: 


RO - status 
WRITE_STR_TO_USER: 
“ CHAN = user_chan,- ; channel 
FUNC = #10$~WRITEVBLK,- : write 
P1 = @4(R2),- ; address 
P2 = (R2) ; length 


bs) 
— 
e 
y 
t 
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